<script>on mouseUpif the value of the clickLine is not empty thenselect the clickLinelock screenput the value of the clickLine into goChapterplay flute Cgo cd goChapterunlock screen with visual effect wipe rightend ifend mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>0</left>
<top>19</top>
<right>512</right>
<bottom>54</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Helvetica</font>
<textSize>20</textSize>
<textStyle>outline</textStyle>
<textStyle>italic</textStyle>
<textStyle>bold</textStyle>
<textHeight>26</textHeight>
<name>Book Title</name>
<script>on mouseUpput me into oldTitleask "Enter your title:" with oldTitleif it is empty thenput "Click Here To Enter Title" into meexit mouseUpend ifput it into newTitleif number of chars of newTitle > 31 thenanswer "No more than 31 characters permitted!"exit mouseUpend ifput newTitle into meend mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>15</left>
<top>73</top>
<right>65</right>
<bottom>88</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>Add</name>
<script>on mouseUpplay "harpsichord" "e"global newChapteranswer "Add recipe or chapter?" with "Chapter" or "Recipe" or "Abort"if it is "Chapter" thenask "Enter the chapter:"if it is empty then exit mouseUpif number of chars of it > 31 thenanswer "No more than 31 characters permitted!"exit mouseUpend ifif first char of it is a number thenanswer "First character must be a letter!"exit mouseUpend ifif it is not empty thenset cursor to watchput it into newChapterrepeat with x = 1 to number of lines of bg fld "Table of Contents"if line x of bg fld "Table of Contents" is newChapter thenanswer "A chapter" && newChapter && "already exists!"exit mouseUpend ifend repeatif bg fld "Table of Contents" is empty thenput newChapter into bg fld "Table of Contents"createChapterCardexit mouseUpend ifif bg fld "Table of Contents" is not empty thenrepeatif last char of bg fld "Table of Contents" is return then ¬delete last char of bg fld "Table of Contents"if last char of bg fld "Table of Contents" is not return ¬then exit repeatend repeatput return & newChapter after bg fld "Table of Contents"createChapterCardend ifend ifend ifif it is "Recipe" thenif bg fld "Table of Contents" is empty thenanswer "No chapters yet!"exit mouseUpend ifif bg fld "Table of Contents" is not empty thenput bg fld "Table of Contents" into bg fld "Table of Contents" ¬of cd "Add Recipe"lock screengo cd "Add Recipe"end ifend ifend mouseUpon createChapterCardglobal newChapterlock screengo cd "Chapter"doMenu "New Card"set the name of this card to newChapterput newChapter into bg fld "Chapter"go cd "Table of Contents"end createChapterCard</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>15</left>
<top>92</top>
<right>65</right>
<bottom>107</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>Delete</name>
<script>on mouseUpplay "harpsichord" "e"answer "Delete chapter or recipe?" with "Chapter" or "Recipe" or "Abort"if it is "Abort" then exit mouseUpif it is "Chapter" then-- answer "You will be deleting a CHAPTER with all of its recipes. Continue?" with ¬-- "Continue" or "Abort"-- if it is "Continue" thenput bg fld "Table of Contents" into bg fld "Table of Contents" of cd "Delete Chapter"lock screengo cd "Delete Chapter"unlock screen-- end ifend ifif it is "Recipe" thenput bg fld "Table of Contents" into bg fld "Table of Contents" of cd "Delete Recipe"lock screengo cd "Delete Recipe"end ifend mouseUp</script>
</part>
<part>
<id>11</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>188</left>
<top>79</top>
<right>314</right>
<bottom>96</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>outline</textStyle>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>12</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>128</left>
<top>310</top>
<right>381</right>
<bottom>331</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>outline</textStyle>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>13</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>80</left>
<top>73</top>
<right>130</right>
<bottom>88</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>Arrange</name>
<script>on mouseUpplay "harpsichord" "e"if number of lines of bg fld "Table of Contents" < 2 thenanswer "Not enough chapters to arrange!"exit mouseUpend iflock screenput bg fld "Table of Contents" into bg fld "Table of Contents" of cd "Arrange TOC"go cd "Arrange TOC"end mouseUp</script>
</part>
<part>
<id>17</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>80</left>
<top>92</top>
<right>130</right>
<bottom>107</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>Sort</name>
<script>on mouseUpsort bg fld "Table of Contents" ascending internationalend mouseUp</script>